home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / trnsprtr.dir / 00541_PC Pano Movie Handlers.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  4.3 KB  |  150 lines
  1. on Open.DAI.VR.PC.Pano
  2.   global gVR.MovieOpen, gQTVRInstanceXtra
  3.   CloseMovieXtra()
  4.   updateStage()
  5.   updateStage()
  6.   OpenMovieXtra(the text of cast "Pano Filename", 3, "visible")
  7.   if objectp(gQTVRInstanceXtra) then
  8.     go(the frame)
  9.     QTVRUpdate(gQTVRInstanceXtra)
  10.     set gVR.MovieOpen to 1
  11.   else
  12.     updateStage()
  13.     alert("Can't open file:" & RETURN & RETURN & QUOTE & the text of cast "Pano Filename" & QUOTE & RETURN & RETURN & "as a panoramic movie.")
  14.   end if
  15. end
  16.  
  17. on close.DAI.VR.PC.Pano
  18.   CloseMovieXtra()
  19.   updateStage()
  20.   updateStage()
  21. end
  22.  
  23. on InitPanoCallbacks.pc
  24.   global gPanoMovieObj, gPanoCallbackFactory
  25.   if objectp(gPanoMovieObj) and objectp(gPanoCallbackFactory) then
  26.   end if
  27. end
  28.  
  29. on ShowPanoMovie.pc pQuality
  30.   global gPanoMovieObj
  31.   if objectp(gPanoMovieObj) then
  32.     if not voidp(pQuality) then
  33.       gPanoMovieObj(mSetQuality, string(pQuality))
  34.     end if
  35.     gPanoMovieObj(mUpdate)
  36.   end if
  37. end
  38.  
  39. on SetPanoNode.pc pNodeID, pUpdate, pQuality
  40.   global gPanoMovieObj
  41.   if objectp(gPanoMovieObj) then
  42.     if not voidp(pNodeID) then
  43.       gPanoMovieObj(mSetNodeID, integer(pNodeID))
  44.     end if
  45.     if not voidp(pQuality) then
  46.       gPanoMovieObj(mSetQuality, string(pQuality))
  47.     end if
  48.     if pUpdate then
  49.       gPanoMovieObj(mUpdate)
  50.     end if
  51.   end if
  52. end
  53.  
  54. on SwingPanoMovie.pc pHPan, pVPan, pZoom, pSwingSpeed, pSwingQuality, pFinalQuality
  55.   global gPanoMovieObj
  56.   if objectp(gPanoMovieObj) then
  57.     gPanoMovieObj(mSetZoomAngle, string(pZoom))
  58.     gPanoMovieObj(mSetVPanAngle, string(pVPan))
  59.     gPanoMovieObj(mSetHPanAngle, string(pHPan))
  60.     gPanoMovieObj(mSetQuality, string(pSwingQuality))
  61.     gPanoMovieObj(mSetTransitionMode, "swing")
  62.     gPanoMovieObj(mSetTransitionSpeed, string(pSwingSpeed))
  63.     gPanoMovieObj(mUpdate)
  64.     gPanoMovieObj(mSetTransitionMode, "normal")
  65.     if pFinalQuality <> pSwingQuality then
  66.       gPanoMovieObj(mSetQuality, string(pSwingQuality))
  67.       gPanoMovieObj(mUpdate)
  68.     end if
  69.   end if
  70. end
  71.  
  72. on SetPanoMovieView.pc pHPan, pVPan, pZoom, pQuality
  73.   global gPanoMovieObj
  74.   if objectp(gPanoMovieObj) then
  75.     gPanoMovieObj(mSetZoomAngle, string(pZoom))
  76.     gPanoMovieObj(mSetVPanAngle, string(pVPan))
  77.     gPanoMovieObj(mSetHPanAngle, string(pHPan))
  78.     if not voidp(pQuality) then
  79.       gPanoMovieObj(mSetQuality, string(pQuality))
  80.     end if
  81.     gPanoMovieObj(mUpdate)
  82.   end if
  83. end
  84.  
  85. on ClosePanoMovie.pc
  86.   global gPanoMovieObj, gVR.MovieOpen
  87.   if objectp(gPanoMovieObj) then
  88.     gPanoMovieObj(mdispose)
  89.   end if
  90.   set gVR.MovieOpen to 0
  91. end
  92.  
  93. on PanoFrameScript.pc pSpriteNum
  94.   global gLastTimeRollover, gHotSpot, gPanoMovieObj, gLastPanoMovieData, gPathName, gNavMovieObj, gPanoFrame
  95.   if rollOver(pSpriteNum) then
  96.     if objectp(gPanoMovieObj) then
  97.       set tMouseOverResult to gPanoMovieObj(mMouseOver)
  98.       set the itemDelimiter to ","
  99.       if tMouseOverResult <> 0 then
  100.         set tAction to item 1 of tMouseOverResult
  101.         if tAction = "jump" then
  102.         else
  103.           if tAction = "stil" then
  104.             put item 2 of tMouseOverResult into field "Current Hot Spot ID"
  105.           else
  106.             if tAction = "navg" then
  107.               set tHotSpotID to item 2 of tMouseOverResult
  108.               put tHotSpotID into field "Current Hot Spot ID"
  109.               set tViewAngles to gPanoMovieObj(mGetNavgViewAngles)
  110.               set tFileName to gPanoMovieObj(mGetHotSpotName)
  111.               if objectp(gNavMovieObj) then
  112.                 set gPanoFrame to marker(0)
  113.                 go("Object From Pano")
  114.                 SetNavMovieView(item 1 of tViewAngles, item 2 of tViewAngles)
  115.                 ShowNavMovie()
  116.               end if
  117.             else
  118.               if tAction = "misc" then
  119.               else
  120.                 if tAction = "undf" then
  121.                   if the mouseUp then
  122.                     checkVRHotSpotClick()
  123.                   end if
  124.                 else
  125.                   if tAction = "pan " then
  126.                   end if
  127.                 end if
  128.               end if
  129.             end if
  130.           end if
  131.         end if
  132.         set gLastTimeRollover to 1
  133.       else
  134.         cursor(200)
  135.         cursor(-1)
  136.         set gLastTimeRollover to 0
  137.       end if
  138.     end if
  139.   else
  140.     if gLastTimeRollover then
  141.       cursor(200)
  142.       cursor(-1)
  143.       set gLastTimeRollover to 0
  144.       if objectp(gPanoMovieObj) then
  145.         gPanoMovieObj(mIdle)
  146.       end if
  147.     end if
  148.   end if
  149. end
  150.